home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / intrfc70.zip / TEST1.INC < prev    next >
Text File  |  1994-03-16  |  132b  |  8 lines
  1.     function  fun(v : byte; var r : byte) : byte;
  2.     var
  3.       x : double;
  4.     begin
  5.       x := 0;
  6.       x := x*x;
  7.     end;
  8.